function TempFun_WebPlot_4Dim(List_IRF,LineStyleList,NormalizationFlag)

% List_IRF    =   {IRF.Eps_Eta_M_dom,IRF.Eps_Eta_M_ext,IRF.Eps_Eta_Y_H};
% List_IrfLabel=  {'Domestic Monetary Shock','Foreign Monetary Shock','Foreign Demand Shock'};
%% Preliminary
if nargin<3
    NormalizationFlag   =   1;
end
if nargin<2 || isempty(LineStyleList)
    LineStyle   =   {'-','--','-.',':'};
    LineColor   =   {MyColor('Blue'),MyColor('Red'),MyColor('Black')};
else
    LineStyle   =   LineStyleList(1,:);
    LineColor   =   LineStyleList(2,:);
end

%% 
List_Label  =   {{'Financial:';'Non-integrated'};{'Financial:';'Integrated'}; ...
                 {'Real:';'Non-integrated'};{'Real:';'Integrated'}; ...
                 'Net Asset: Low';'Net Asset:High';...
                 {'Fin.: Non-int.';'Real: Non-int.'};{'Fin.: Non-int.';'Real: Int.'};...
                 {'Fin.: Int.';'Real: Non-int.'};{'Fin.: Int.';'Real: Int.'}};
ID          =   [1,3,2,4];
Num_Group   =   length(ID);
Num_IRF     =   length(List_IRF);
PlotDataCell=   cell(Num_IRF,1);
for ii_Irf=1:Num_IRF
    TempIRF     =   List_IRF{ii_Irf};
    
    IRF_C       =   TempIRF.C;
    IRF_AggStat =   TempIRF.AggStat;
    [MaxIrf,Ind]=   max(abs(IRF_C));
    
    TempIrf     =   mean(IRF_AggStat(:,Ind),2)';
    if NormalizationFlag
        PlotDataCell{ii_Irf} ...
                    =   TempIrf(ID)/MaxIrf;...max(abs(TempIrf(ID)));...MaxIrf;
    else
        PlotDataCell{ii_Irf} ...
                    =   TempIrf(ID)*100;
    end
%     TempIrf     =   TempIrf./max(abs(TempIrf),[],2);
    
end
if NormalizationFlag
    PlotData    =   [cat(1,PlotDataCell{:});ones(1,Num_Group)];
    LineStyle   =   {LineStyle{1:Num_IRF},'-'};
    LineWidth   =   [2*ones(Num_IRF,1);1];
    MarkerSize  =   [3*ones(Num_IRF,1);0.01];
    Color       =   [cat(1,LineColor{1:Num_IRF});[0,0,0]];
    Unit        =   0.1;
else
    PlotData    =   [cat(1,PlotDataCell{:})];
    LineStyle   =   {LineStyle{1:Num_IRF}};
    LineWidth   =   [2*ones(Num_IRF,1)];
    MarkerSize  =   [3*ones(Num_IRF,1)];
    Color       =   [cat(1,LineColor{1:Num_IRF})];
    Unit        =   min(10^floor(log(max(abs(PlotData(:))))/log(10)),0.1);
end

Limits      =   [min(PlotData(:));max(PlotData(:))];

Limits      =   [floor(Limits(1)/Unit)*Unit;ceil(Limits(2)/Unit)*Unit];

spider_plot(PlotData,'AxesLabels',List_Label(ID)',...
            'AxesLimits',Limits*ones(1,length(ID)),...
            'LineStyle', LineStyle,...
            'LineWidth', LineWidth,'MarkerSize', MarkerSize,...
            'Color',Color,...
            'AxesPrecision', 1,'AxesInterval',3,...
            'AxesLabelsEdge', 'none','AxesDisplay', 'one','AxesColor',[1,1,1]*0.8,...
            'AxesFontSize', 7,'LabelFont', 'Times New Roman','LabelFontSize',7,...
            'AxesScaling', 'linear','AxesOffset', 1);
        

